home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / ds40bpds.zip / DOORSORC.INT < prev    next >
Text File  |  1992-06-13  |  7KB  |  173 lines
  1. DECLARE SUB WaitTilEmpty ()
  2. DECLARE SUB ClearBuffers ()
  3. DECLARE SUB ShellToDos (Shell.String$)
  4. DECLARE SUB QSend (WD$, Enter!)
  5. DECLARE FUNCTION CommInkey$ ()
  6. DECLARE FUNCTION CommKeyInkey$ ()
  7. DECLARE FUNCTION FileOpen! (FileName$, Access$, Sharing, C!)
  8. DECLARE FUNCTION CheckTimeLeft! ()
  9. DECLARE SUB BackSpace (WD$)
  10. DECLARE SUB ExtendedCode (A$, KeyBoard.Time.Out)
  11. DECLARE SUB BeepSpeaker ()
  12. DECLARE SUB NL (How.Many.Times!)
  13. DECLARE SUB Send (WD$, Bell!, Enter!, ColorUse!)
  14. DECLARE SUB Incomm (WD$, SendEnter!, LimitField!, ColorUse!)
  15. DECLARE FUNCTION AllTrun$ (WD$)
  16. DECLARE SUB ANSIMusic (Music$, Music)
  17. DECLARE SUB GameInfoUpdate (WD$, Enter, ColorUse, ColorBack)
  18. DECLARE SUB BackSpaceOver ()
  19. DECLARE SUB Center (WD$)
  20. DECLARE SUB ClrScrn ()
  21. DECLARE SUB ColorEasy (WD$, Fore, SendEnter)
  22. DECLARE FUNCTION DayOfWeek ()
  23. DECLARE SUB DoorBusy ()
  24. DECLARE SUB ErrorLevelSet (Error.Level)
  25. DECLARE SUB ExitDoor ()
  26. DECLARE FUNCTION FileExist (File.Name.Check$)
  27. DECLARE SUB GetTime (Hours, Minutes, Seconds, SinceMid#)
  28. DECLARE SUB HighScores (Score, PROGNAME$, OutputFileNumber)
  29. DECLARE SUB InitDoor ()
  30. DECLARE SUB MenuManager (Menu$(), CenterIt, TextClr, How.Many.Bars, Slct, BarFore, BarBack, Barnumber)
  31. DECLARE SUB MoveCursor (X, Y)
  32. DECLARE SUB Parser (Searchfor$, Searchin$, ParArray$(), ERRCODE)
  33. DECLARE FUNCTION RandNum (Low, High)
  34. DECLARE SUB ReadUsers (ERRCODE)
  35. DECLARE SUB ScriptCMD ()
  36. DECLARE SUB Sorter (ParArray$(), HowManyToSort)
  37. DECLARE SUB SysopPage (Answered)
  38. DECLARE SUB TimeConvert (Hours, Minutes, NT$)
  39. DECLARE SUB ViewFile (FileName$, ChkIt, MoreP, ExitP)
  40. DECLARE SUB WaitASec (How.Long.To.Wait)
  41. DECLARE SUB Windows (ULR, ULC, LRR, LRC, Fore, Back, BORDER, SHADOW)
  42. DECLARE SUB WriteUsers (ERRCODE)
  43. DECLARE SUB BlockSend (Array$(), CenterIt, LinesToSend)
  44. DECLARE SUB WindowPrint (WD$, Row, Col, Fore, Back)
  45. DECLARE SUB WindowInput (WD$, MaxLen, Row, Col, Fore, Back)
  46. DECLARE SUB RainbowSend (WD$, Bell, Enter, ColorUse)
  47. DECLARE SUB PromptIncomm (WD$, Default$, DefaultColor, LimitField, ColorUse)
  48. DECLARE SUB EntryIncomm (WD$, LimitField, FieldColor, ColorUse)
  49.  
  50. COMMON SHARED /DoorSource/ ARG$, SYSDPATH$, BBSName$, SysopNM$, CALLNAME$, Baud&, TIMELEFT, ComPort$, PROGNAME$, RELEASE$, ANSI, TWE$, I1$, I2$, O1$, O2$, Out.Of.Time, Yes, No, User.Color, BackGroundColor
  51. COMMON SHARED /DoorSource/ Exit.Dor.1$, Exit.Dor.2$, UserF$, UserL$, Time.Left, Caps, CommOnly, I3$, Page.Bell, Caller.Alarm, Sysop.Next, Hang.Up, User.Record, Network, Table$, Display.Toggle, Printer.Toggle, BusyFlag, UserFile$, Up.Key$, Down.Key$
  52. COMMON SHARED /DoorSource/ Parity, Filter, BusyFile$, TimeCred, SysFirst$, SysLast$, CommPort, Last.Clr.Used, NTH1$, NTH2$, NTH3$, EchoKey, No.Enter.Send, Exit.Dor.Clr1, Exit.Dor.Clr2, HotKey, Hot.Key, File.Missing$, BBSType$, Last.Time.Warning
  53. COMMON SHARED /DoorSource/ Node, TabSpace, InverseText, Sysop, BlinkText, Not.Around$, PARAM$, WindowNum%, Page.String$, PageSound.1, PageSound.2, PageSound.3, GameInfo, GameInfoCol, Default.Table$
  54. COMMON SHARED /DoorSource/ KeyBoardTimeOut, Protected.Input$, ANSI.Select$, NonAnsi.Select$, CarrierLossError, Ecode, Carrier.Check, VideoSeg%, No.Abort, Lines.Since, AutoMore, ANSIDetect
  55.  
  56. TYPE DATABLOCK
  57.       CityState AS STRING * 24
  58.       Password AS STRING * 12
  59.       BusinessPhone AS STRING * 13
  60.       VoicePhone AS STRING * 13
  61.       LastDateOn AS STRING * 20
  62.       LastTimeOn AS STRING * 5
  63.       ExpertMode AS STRING * 1
  64.       ProtocolType AS STRING * 5
  65.       LastDirListing AS STRING * 10
  66.       SecurityLevel AS INTEGER
  67.       TimesOn AS INTEGER
  68.       PageLength AS INTEGER
  69.       TotalUploads AS INTEGER
  70.       TotalDownloads AS INTEGER
  71.       DailyDownloadBytes AS DOUBLE
  72.       UserComment AS STRING * 30
  73.       SysopComment AS STRING * 30
  74.       ElapsedTime AS INTEGER
  75.       Subscription AS STRING * 20
  76.       SubscriptionExpire AS STRING * 20
  77.       AreaRegistration AS STRING * 50
  78.       AreaExpire AS STRING * 50
  79.       AreasToScan AS STRING * 50
  80.       TotalDownloadBytes AS DOUBLE
  81.       TotalUploadBytes AS DOUBLE
  82.       DeleteFlag AS STRING * 1
  83.       TimeEnteredDoor AS STRING * 5
  84.       AreaFrom AS INTEGER
  85.       MemorizedMessage AS LONG        ' PCBoard only
  86.       TimeCalled AS STRING * 5        ' Wildcat and PCBoard only
  87.       DailyDownloadTotal AS INTEGER   ' Wildcat only
  88.       MaxDownloadLimit AS DOUBLE      ' Wildcat only
  89.       LastRead AS INTEGER             ' Wildcat only
  90.       MaxDownloadKLimit AS DOUBLE     ' Wildcat, PCBoard, and DOORSYS only
  91.       ExpirationDate AS STRING * 10   ' DOORSYS only
  92.       LR0 AS STRING * 4  ' Last read pointers for PCBoard only
  93.       LR1 AS STRING * 4
  94.       LR2 AS STRING * 4
  95.       LR3 AS STRING * 4
  96.       LR4 AS STRING * 4
  97.       LR5 AS STRING * 4
  98.       LR6 AS STRING * 4
  99.       LR7 AS STRING * 4
  100.       LR8 AS STRING * 4
  101.       LR9 AS STRING * 4
  102.       LR10 AS STRING * 4
  103.       LR11 AS STRING * 4
  104.       LR12 AS STRING * 4
  105.       LR13 AS STRING * 4
  106.       LR14 AS STRING * 4
  107.       LR15 AS STRING * 4
  108.       LR16 AS STRING * 4
  109.       LR17 AS STRING * 4
  110.       LR18 AS STRING * 4
  111.       LR19 AS STRING * 4
  112.       LR20 AS STRING * 4
  113.       LR21 AS STRING * 4
  114.       LR22 AS STRING * 4
  115.       LR23 AS STRING * 4
  116.       LR24 AS STRING * 4
  117.       LR25 AS STRING * 4
  118.       LR26 AS STRING * 4
  119.       LR27 AS STRING * 4
  120.       LR28 AS STRING * 4
  121.       LR29 AS STRING * 4
  122.       LR30 AS STRING * 4
  123.       LR31 AS STRING * 4
  124.       LR32 AS STRING * 4
  125.       LR33 AS STRING * 4
  126.       LR34 AS STRING * 4
  127.       LR35 AS STRING * 4
  128.       LR36 AS STRING * 4
  129.       LR37 AS STRING * 4
  130.       LR38 AS STRING * 4
  131.       LR39 AS STRING * 4
  132. END TYPE
  133.  
  134. COMMON SHARED /DSUser/ UserBlock AS DATABLOCK
  135.  
  136. CONST MorePrompt = 1
  137. CONST PressKeyPrompt = 2
  138. CONST Default1 = " (Enter=no) "
  139. CONST Default2 = " (Enter=none) "
  140. CONST Default3 = " (Enter=quits) "
  141. CONST Black = 0
  142. CONST Blue = 1
  143. CONST Green = 2
  144. CONST Cyan = 3
  145. CONST Red = 4
  146. CONST Magenta = 5
  147. CONST Brown = 6
  148. CONST White = 7
  149. CONST Gray = 8
  150. CONST HiBlue = 9
  151. CONST HiGreen = 10
  152. CONST HiCyan = 11
  153. CONST HiRed = 12
  154. CONST HiMagenta = 13
  155. CONST Yellow = 14
  156. CONST HiWhite = 15
  157.  
  158. COMMON SHARED /DoorSource/ ErrLvl
  159. COMMON SHARED /DSBaud/ LockBaud&, TrueBaud&
  160.  
  161. '
  162. '
  163. '        Door Source  - Copyrighted 1988,1989, 1990 - Written by Todd Miller
  164. '        Version 4.0  - Computer City, USA
  165. '
  166. '     ALL OR ANY MODIFCATIONS TO THIS PART OF DOOR SOURCE OR ANY OTHER
  167. '     PART OF DOOR SOURCE WILL RESULT IN MAJOR UNCORRECTABLE BUGS!
  168. '
  169.    CALL InitDoor
  170.  
  171. '                   Door Source 3.3 init completed!
  172.  
  173.